5 GOSUB60100:CLR
10 DIMD$(23),A(4),B(25),C(25),G(25):PRINTCHR$(8)CHR$(142)
20 D$(0)=CHR$(19):FORX=1TO23:D$(X)=D$(X-1)+CHR$(17):NEXT
30 RESTORE:PRINT"[147]            WHAT GOES HERE?"
40 PRINT"            BY PENNY DEGROFF"
70 FORX=54272TO54295:POKEX,0:NEXT:POKE54296,15
80 POKE54277,5:POKE54284,10
90 READH,L:IFH=0THEN130
100 POKE54273,H:POKE54280,H:POKE54272,L:POKE54279,L
110 POKE54276,17:POKE54283,33:FORD=1TO200:NEXT
120 POKE54276,16:POKE54283,32:GOTO90
130 FORX=54272TO54284:POKEX,0:NEXT
140 FORX=1TO4:READA(X):NEXT:B(1)=1471:C(1)=1488
150 FORX=2TO5:B(X)=B(X-1)+2:C(X)=C(X-1)+2:NEXT
160 FORX=6TO25:B(X)=B(X-5)+80:C(X)=C(X-5)+80:NEXT
170 POKE53280,6:POKE53281,14:POKE646,6
180 PRINTD$(12)TAB(5)"SELECT DIFFICULTY LEVEL(1-5)"
185 PRINT"            PRESS Q TO QUIT."
190 GETZ$:IFZ$>"0"ANDZ$<"6"THENE=VAL(Z$):GOTO200
193 IFZ$="Q"ORZ$="[209]"THENGOSUB60000:GOTO185
198 GOTO190
200 PRINT"[145][145][145]";:FORA=1TO3:PRINT"                                     ":NEXT
210 PRINTD$(11)TAB(11)"MATCH CHARACTERS"
220 PRINTTAB(11)"<1> AT RANDOM":PRINTTAB(11)"<2> IN ORDER"
230 GETZ$:F=VAL(Z$):IFF<1ORF>2THEN230
240 IFF=1THENFORX=1TO25:G(X)=0:NEXT
250 PRINT"[145][145][145]";:FORA=1TO3:PRINT"                                  ":NEXT
260 PRINTD$(10)TAB(6)"[176][192][178][192][178][192][178][192][178][192][174]      [176][192][178][192][178][192][178][192][178][192][174]"
270 PRINTTAB(6)"[221] [221] [221] [221] [221] [221]      [221] [221] [221] [221] [221] [221]":IFE=1THEN300
280 FORX=1TOE-1:PRINTTAB(6)"[171][192][219][192][219][192][219][192][219][192][179]      [171][192][219][192][219][192][219][192][219][192][179]"
290 PRINTTAB(6)"[221] [221] [221] [221] [221] [221]      [221] [221] [221] [221] [221] [221]":NEXT
300 PRINTTAB(6)"[173][192][177][192][177][192][177][192][177][192][189]      [173][192][177][192][177][192][177][192][177][192][189]"
310 FORX=1TOE*5:POKEB(X)+54272,1:POKEB(X),A(INT(RND(0)*4)+1):NEXT:TI$="000000"
312 PRINT:PRINT
315 PRINTTAB(12)"[145]TIME REMAINING:"15-VAL(TI$)"[157] "
320 IFTI$<>"000015"THEN315
330 FORX=1TOE*5:POKEB(X)+54272,14:NEXT
340 PRINTD$(5)TAB(11)"[176][192][192][192][178][192][192][192][178][192][192][192][178][192][192][192][174]"
350 PRINTTAB(11)"[221]1-O[221]2-X[221]3-[214][221]4-[215][221]"
360 PRINTTAB(11)"[173][192][192][192][177][192][192][192][177][192][192][192][177][192][192][192][189]"
370 POKE646,13:S=0:PRINTD$(3)TAB(9)"CHARACTERS MATCHED: 0":I=0
375 PRINT"";:FORA=1TO(E*3)+11-(E-1):PRINT"";:NEXT
378 PRINT"            PRESS Q TO QUIT.   "
380 I=I+1:IFI>E*5THEN560
390 IFF=2THEN420
400 R=INT(RND(0)*E*5)+1:IFG(R)=1THEN400
410 G(R)=1:POKEC(R),63:POKEC(R)+54272,1:GOTO430
420 POKEC(I),63:POKEC(I)+54272,1
430 GETZ$:IFZ$>"0"ANDZ$<"5"THEN440
433 IFZ$="Q"THENGOSUB60060:IFNOT(OK)THEN30
438 GOTO430
440 J=VAL(Z$):IFF=1THEN480
450 POKEC(I),A(J):POKEC(I)+54272,1:POKEB(I)+54272,1
460 IFPEEK(B(I))=PEEK(C(I))THEN520
470 GOTO500
480 POKEC(R),A(J):POKEC(R)+54272,1:POKEB(R)+54272,1
490 IFPEEK(B(R))=PEEK(C(R))THEN520
500 POKE54277,45:POKE54272,20:POKE54273,5:FORT=1TO3:POKE54276,33
510 FORD=1TO150:NEXT:POKE54276,32:FORD=1TO30:NEXT:NEXT:GOTO550
520 POKE54277,15:POKE54272,70:POKE54273,100:FORT=1TO3:POKE54276,33
530 FORD=1TO75:NEXT:POKE54276,32:FORD=1TO20:NEXT:NEXT
540 S=S+1:PRINTD$(3)TAB(28)""S
550 FORD=1TO1500:NEXT:GOTO380
560 POKE646,7:PRINTD$(23)TAB(8)"GAME OVER....PRESS SPACE"
570 GETZ$:IFZ$<>" "THEN570
580 GOTO30
600 DATA 16,195,21,31,18,209,22,96,28,49,25,30,31,165,37,162,33,135,0,0
610 DATA 15,24,86,87
60000 PRINT"[145]  ARE YOU SURE YOU WANT TO QUIT? (Y/N)"
60010 A=PEEK(203):IFA<>25ANDA<>39THEN60010
60020 IFA=39THENPRINT"[145]                                      [145]":RETURN
60030 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
60040 IFER<>63THENEND
60050 LOAD"HELLO CONNECT",8
60060 PRINT"";:FORA=1TO(E*3)+11-(E-1):PRINT"";:NEXT
60070 PRINT"  ARE YOU SURE YOU WANT TO QUIT? (Y/N)"
60080 A=PEEK(203):IFA<>25ANDA<>39THEN60080
60090 OK=-1:IFA=25THENOK=.
60095 PRINT"[145]            PRESS Q TO QUIT.          ":RETURN
60100 POKE53280,14:POKE53281,14
60110 PRINTCHR$(142)"[147][213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]";
60120 FORA=1TO23:PRINT"[221]"SPC(38)"[221]";:NEXT
60130 PRINT"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203][157][148][192]"
60140 FORA=217TO242:POKEA,PEEK(A)OR128:NEXT
60150 PRINT"          LOADSTAR PRESENTS:"
60160 PRINT"                               "
60170 PRINT"           WHAT GOES HERE?      "
60180 PRINT"                                "
60190 PRINT"          BY  PENNY DEGROFF     "
60200 PRINT"                                "
60210 PRINT"           COPYRIGHT  1987      "
60220 PRINT"                                "
60230 PRINT"                                "
60240 PRINT"        PRESS SPACE TO CONTINUE"
60250 IFPEEK(203)<>60THEN60250
60260 RETURN